home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macProcess.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  2.8 KB  |  76 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACProcess
  3. % 
  4. % Part of the Lund Software interface to Macintosh Toolbox
  5. % MACProcess is part of the programming interface. 
  6. % Processes are used to capture events that are directed to
  7. % a window. The MACProcessMGR are receiving the events from the
  8. % Mac and distributes them to the concerned window.
  9. % For each Window - create also a MACProcess and hook it to the window
  10. % by calling ControllingWindow in MACProcessMGR.
  11. %
  12. % 890406/Boris Magnusson
  13. %
  14. % ---------------------------------------------------------------------------
  15. External class MacEvent="::SInterfaces:MacEvent";
  16. External class MacUtilities="::SInterfaces:MacUtilities";
  17. External class MacToolConst="::SInterfaces:MacToolConst";
  18. class MACProcess;
  19. virtual: ! -- called from procmgr to signal special "events": ;
  20.     procedure doGoAway is procedure doGoAway;;
  21.     procedure doSize is 
  22.         procedure doSize(v,h); integer v,h;;
  23. begin
  24.     ref(macUtilities) Util; ! To access toolbox general utils;
  25.     ref(macToolConst) TConst;! To access Tool-constants ;
  26.                                     ! Both assigned by procmgr at start-time;
  27. !-----------------------------  Attributes known by processmgr - ;                                    
  28. ! --- Used as detach/call "parameters". --- ;
  29.     ref(MacEvent) CurrentEvent;  ! -- refers to System event record;
  30.     integer CurrentFindresult;
  31.     Boolean WaitingForEvent;    ! True to signal idle to procmgr;
  32.     short integer CurrentMask; ! Holds mask for accepted Event cods;
  33.     boolean Terminate;            ! Set to true when process is dying.;
  34. !-----------------------------;    
  35. ! Two procedures to manipulate the CurrentMask, they take a 
  36. ! Eventcode (0,1,,15) as defined in macToolConst. 
  37. ! sets/clears corresponding bit in CurrentMask.
  38. ! * EnableEvent(TConst.EveryEvent) enables all events.
  39. ! * DisableEvent(TConst.EveryEvent) disables all events .
  40. ;
  41.     procedure EnableEvent(EventCode); short integer EventCode;
  42.     begin
  43.         if EventCode=TCONST.everyEvent then CurrentMask:=-1 !all bits;
  44.         else 
  45.             Currentmask:=Util.BitOr(
  46.                     Util.BitShift(1,EventCode) , CurrentMask );
  47.     end -- EnableEvent --;
  48.     
  49.     procedure DisableEvent(EventCode); short integer EventCode;
  50.     begin
  51.         if EventCode=TCONST.EveryEvent then CurrentMask:=0 ! no bits;
  52.         else
  53.             Currentmask:=Util.BitAnd(
  54.                     Util.BitNot(Util.BitShift(1,EventCode))  ,
  55.                     CurrentMask );
  56.     end --- DisableEvent --;
  57.  
  58.     ! Wait for an event targeted at my window. ;
  59.     integer procedure WaitNextEvent(theEvent); 
  60.         ref(MacEvent) theEvent;
  61.     begin
  62.         WaitingForEvent:=True;
  63.         detach;
  64.         CurrentEvent.copyevent(theEvent);
  65.         WaitNextEvent:=CurrentFindResult;
  66.     end --- Input ---;
  67.     
  68. ! --- dummy versions of virtual procedures --;
  69.     procedure doGoaway; ;
  70.     procedure doSize(v,h); integer v,h;;
  71.  
  72. ! -- Initialize / Terminate -- ;
  73.     Detach; ! do not do anything until activated !;
  74.     inner;
  75.     terminate:=true; !Taken out of queues when returning;
  76. end --- Mac Process --- ;